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$begin rmsfilstr,v04-000 


PRARRBRAAAASARLSLASLASASLALALALE SARL ALAS ASAAAALESASAS ESA SARA EAAS ALAS EAA AA SEAS ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

® 

& 

*® 
THIS SOFTWARE iS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
® 

* 

® 

* 

® 

® 

® 

* 

*® 

® 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUSAA 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eanPORat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


*e eee eeeee eee ee ee eanenen 


PRRRAAASALARLAAALSRERASERASASEAAAE SALAS AA ASAE AAAS ARERR RRA RA RASA RAR ARSA SDSS GO | 


internal rms file structure definitions 
Modified By: 


v03-019 LJA0088 Laurie J. Anderson 17-Aug-1983 
Add new field for AT journals - RJRSL_AT_CTX. This 
will allow users, if they choose to fill in this weer field, 
to have it written to the AT journal and thus printed out 
by ANAL/AUDIT for them. 


v03-018 KPLO008 Peter Lieberwirth 27-Jul-1983 
Add fields to EXTEND RJR entry so RMS Recovery can use 
RMS to re-do the extend. 

| 


v03-017 KPLO007 Peter Lieberwirth 22-Jun-1983 
Correct staesetites be v03-016. 
v03-016 KPLO006 Peter Lieberwirth 22-Jun-1983 


Add mask longword to pees RJR entry - used to seent ity 
he attributes are journaled in the entry. REC_A 
field is really 32 bytes long, not 56. 


v03-015 KPLOOOS Peter Lieberwirth 7-Jun-1983 
Longword align the RJR where it isn't. 

v03-014 KPLO004 Peter Lieberwirth 26-May-1983 
Fix bugs introduced in v05-013. 

v03-013 KPLOO003 Peter Lieberwirth 24-May-1983 


Make RJB more robust by separating entry_type "Geen 
organization. Make a fil 


Lename entry common to AT, 
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Al, BI, mapping and CREATE. Add TPT for sequential 
RL be TEND entry also (A - Common 
block I0 entry Miscellaneous cleanup "olen, 

v03-012 KPLO0002 Peter Lieberwirth 28-Apr-1983 
Add EXTEND journal entry description to RJR. 

v03-011 KPLOOO1 Peter Lieberwirth gcemAnr-1985 
Add AT journal entry descriptions to RJR. 

V03-010 JwWHO209 Jeffrey W. Horn 12-Apr-1983 

v03-009 DASO011 avid Solomo 01-Apr-1983 
Add RJR$W_JBKT sive (size ~ journaled bucket). 

v03-008 RASO136 aefer 17-Mar-1983 


Add RJR$W_BKT sie feta to “serait journaling of 
partial buckets. 


V03-007 RASO131 Ron Schaefer 14-Mar-1983 
Add RJR structure for accesibility to other RMS-related 
facilities. Combine RMSR structure with RJR. 
Also change MCNO009 to a slightly smaller value. 


V03-006 MCNO009 Maria del C. Nasr 07-Mar-1983 
Define symbolic constant for maximum bucket size. 
v03-005 TMKO003 Tod 


d 18-Dec-1982 
Add the bit definitions — IRC$V_RU_DELETE ond IRC$V_RU_UPDATE 
to the IRC control byte. These bits are defined only for 
prologue 3 files being recovery unit journalled. 


v03-004 PCA1003 Paul C. Anagnostopoulos 4-Nov-1982 
Add new quadword key information to the key descriptor. 
Add new total area allocation field to area descriptor. 


v03-003 MCNO008 Maria del C. Nasr 19-Oct-1982 
KFY. bate flag in the key descriptor can be defined for 
She Also eliminate COUNT_DUP, NORFA, and 
PRG. D_RFA flags. 


vO3-002 TMKOO002 Todd M. Katz 06-Sep-1982 
1. Eliminate the following dits f rn the rae definition: 

IRV$V_DEL_COUNT, IRCSV_KEYDELETE, IRCSV_HIGH_KEY, 
IRCSV~LAST_CONT, and IRCSV_ FLATTEN. 


2. Add the bit definition IRCSV_NODUPCNT within the IRC 
record control byte. 


3. Redo all the IRC bits. 


4. Add the constants IRC$C Hg Ade P , [CSC sonowNsTS, 
IRCSC_RRVOVHDSZ, and IRT$C_RRVOV ‘ 


] 
Replace Mapping with SNLID. 


AAA AAAAAAAASAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAA 
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{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


v03-001 


v02-061 


v02-060 


v02-059 
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5. Add the bit IRCSV_FIRST_KEY to the record control byte 
definition. 


6. Delete the bit definitions for BKT$V_LAST 
BKTSV_CONT_BKT from the index bucket defi 


7. Finally those bits reserved for RMS-11 use, but which are 
pee used 7 referenced in RMS-32 code (bits number 5 and 6) 
e been marked as such, and their symbols (such as 
ratty oREYDELETE) have been eliminated. 


TMKO001 Todd M. Katz 15-Jun-1982 


1. Define the bit cont _BKT within the bucket control byte. 
- Eliminate DUP_COUNT field from bucket definition and 
change the constant DUPBKTOVH from 8 to 4 to rer lect this. 

3. Define the bit FLATTEN within the record control ayes 

4. Add the Prologue 3 SIDR overhead constants DUPSDROVH and 
SDROVHSZ3 to the index record definition. 


CDS$0001 C Sae 23-Dec-1981 
Add default global oot ter count field to prologue 
vbn 1 for relative and isam files. 


a CONT and 
nition. 


kBT0001 Keith B Thompson 12-Nov-1981 
Add ONC and CBT flags in the fe area descriptor field 
and correct the position of C 


PSK0004 Paulina S. Knibbe 23-0ct-1981 
Remove LCB_EXITS flag. 


v02-058 MCNO007 Maria del C. Nasr 15-May-1981 


v02-057 


v02-056 


v02-055 


v02-054 


v02-053 


Add compression constants. 


PSK0003 Paulina S. Knibbe 16-Apr-1981 
Add KEY_COMPR and REC_COMPR bits to the KEY structure 
Add conStants for Largest non-compressed data record, 
primary key and index (SIDR key. 


PSK0002 aulina S. Knibbe 19-Mar-1981 
Add pointer sleet field to the BKT structure 


MCNO006 Maria del C. Nasr 16-Mar-1981 

Modify the BKT, and IRC structures to increase record id 
size to a word, and reflect other changes required for the 
new ISAM structure. 


PSK0001 Paulina Knibbe 11-Mar-1981 
Add definitions for per-segment datatypes to the KEY structure 
Add another . version constant 


ras0053 n Schaefer 24-Nov-1980 14:48 
merge RMSINT ned RMSIDXSTR file structure definitions into 
one tte containing all on-disk structures and no in-memory 
structures. 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAARAAAAAA 
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v02-052 REFORMAT Keith 8B. Thompson 29-JUL-1980 


v051 


v050 


v049 


v048 


v047 


v046 


v045 


jak0045 
remove IFBSV_DAP_FMODE. 


J A Krycka 21-MAR-1980 15:00 
cds0075 C 21-JAN-1980 
RA 


D Sae 11:25 
remove IFBSL_FWA_BDB, ifasu BKS Bytes. IFBSW_BKS LRECS. 


rasC010 A Schaefer 07-JAN-1980 16:45 
re-arrange drc fields for valid did check. 


as0009 R A Schaefer 20 DEC. -1979 15:30 
add FWAST_RNM_FID to hold the saved fid from a rename 
for checking Bad rename wages operation. 


jak0029 18-NOV-1979 11:00 
aoe we REMRESULT e 7 es that fal has returned resultant 
string. 


mh0003 Tim Halvorsen 02-NOV-1979 
odd FWASL_DIRBDB to hold address of thatat { buffer bdb 
add FWASV_FILEFOUND bit to indicate that at least one file 
has been found = used to return FNF vs. ¥ 


jak0025 J A Krycka 28-SEP-1979 17:00 

add FWASV_DEV _UNDER in Veonjunction with effort to 

modify expanded and resultant name oer tne processing to prefix 
an underscore to node and device names that have been subject 
to logical name translation. 


Tim Halvorsen 12-SEP-1979 
add IFBSV_SEARCH bit to mark ifabs left during searches. 


Tim Halvorsen 11-SEP-1979 
overlay the fib buffer with the node descriptors to reduce 
the total space used by fwa. increase the size of the file 
name and type buffers due to the new maximum sizes which can 
occur as a result of wild characters (i.e. tatbtctdre etc). 


jakO erpese 27-AUG-1979 18:00 

pove OF AST _NODEBUF” to NWAST peoeey? and add FWA$Q_DIR1 thru 
WASQ_DIR8S” in conjunction with effort in RMOXPFN fo allow 

ult ible node specs in a file specification. 


cds0022 C Saether 26-july-79 22:45 
add IFBSV_SEQFIL to hw a Ta bits. 


cds0000 C Saetner 16-JAN-1979 14:00 
remove definition of lockabove from srchflags in irab 
and add abovelckd to bookeeping bits 


wsk0000 Ww S Koenig 10-JAN-1979 1:25 
tix problem w/ IDX. PIR roverlaneteg w/ AS_DEV longwords 


jak0017 JA 28-DEC-1978 14:30 
make IFBSL_NWA_PTR a iPase _FRB_PTR separate locations so that 
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v037 an0003 well 20-DEC-1978 17:35 
file aes =e AA changes. 


| 
v0O36 = jak00 rycka 17=DEC-1978 19:00 | 
ieee ‘ hes a FUASC _MAXNODE and aah *NODBUFSI?. 


v035 21-NOV-1978 16:40 


jak0006 ryche 

add FWASV _ACCSTR detin tion. 
v034 anogo ‘ R A Newell 1-NOV-1978 09:49 

RMS sam modi ficat ions. additions of isam fields, take out 
NWA, add PLG_VER, chan SB size, define PTR_VBN, update, 


: networking and file sharing do not interfere with each other. 
UPD_NRP, RFA_VBN, and Rea} ID fields. 
{ 
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prologue field definitions 


common vbni format for indexed and relative files 


module $PLGDEF; 


onerepate PLGDEF pirus ure prefix PLG$; 

FILL_1 byte dimension 11 fill prefix PLGDEF tag $$; 
DBKTSIZ byte unsigned; 

FILL Lonpyare fill prefix PLGDEF tag $$; 

FLAGS OVERLAY union; 


end FLAGS BITS; 


FILL_5 byte dimension 85 fill prefix PLGDEF tag $$; 
AVBN byte unsigned; 

AMAX byte unsigned; 

DVBN word une jpned: 

FILL.4 word fill prefix PLGDEF tag $$; 

MRN Tongword unsigned; 

EOF Longword unsigned; 

VER_NO word unsigned; 


constant VER_NO equals 1 prefix PLG tag $C; 
constant VER_IDX equals § prefix PLG tag $C; 
constant VER equals prefix PLG tag $C; 


GBC word unsigned; 

constant BLN equals - prefix PLG$ tag K; 

constant BLN equals . prefix PLG$ tag C; 
end PLGDEF; 


end_module $PLGDEF; 


/* 
* 
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(note: indexed file defintions not included at this time) 


leave space for indexed file things 
data bucket size 
filler 


flag bits 
no extend allowed (rel) 


epete filler 

von of first area descriptor 
maximum number of areas 

first data bucket vbn 

spare 

maximum record number (rel) 
eof vbn (rel) 

version number 

current prolog version number 
new plg for indexed files 

new plg for compression, space reclamation (plg 3) 
default global buffer count 
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module SDOLCDEF; 
/t 


/* 
. relative file deletion control byte bit definitions 


aggregate DLCDEF wen _prerse DLCS; 
DLCDEF BITS struc 
FICL.1 b ttield. Lengen 2 fill prefix DLCDEF tag $$;/* (start with bit 2) 
DELETED bitfield m /* record deleted 
oreeer tite? & mask; is record exists (but may have been deleted) 


end 
end DLCDEF; 
end_module SDLCDEF; 


wef 


gaeue SBKTDEF; 


i: index bucket definition 


everenate Ox BKTDEF structure prefix BKT$; 


end BKTCB0 OVERLAY; 
end BKTDEF; 


end_module S$BKTDEF; 


“ this is the bucket format for RMS-11/RMS-32 index files. 


K 4 
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HAR byte unsigned; /* bucket check character 
AREANO_OV Y union; 
AREANO byte unsigned; /* area number form which bucket was ailocated 
- AREANOCO oreo AY uns gned; /* index to which this bucket belongs (plg 
e 
ADRSAMPLE word ro /* address sample - low 16 bits of first vbn in bucket 
rnc OVERLAY union: 
Lote ACE word unsigned; /* displacement in bucket of first free byte 
KEYFRESPC word unsigned; /* pointer to key's free space (plg 3) 
end FREESPACE OVERL 
NXTRECID_OVERCAY tan 
NXTRECID word unsigned; /* next available word record id (plg 3) 
NXTRECID_FIELDS structure; 
NXTRECID byte unsigned; /* next available record id 
LSTRECID D FLELDS: unsigned; /* last id in range 
d NRTRECID 
end NXTRECID COVERLAY 
ae" _ionavere eo | MOS /* vbn of next bucket 
eye unsigned; /* bucket level number 
axrCB ge ERLAY union; 
RTCB byte unsigned; /* bucket control bits 
Zesatent OVERHDSZ equals - prefix BKT$ tag K; /* Length of bucket overhead 
BxTEB BITS structure equals - prefix BKT$ tag C; /* Length of bucket overhead 
S 
CxSt bitfield’ mesh: /* Last bucket in horizontal chain 
OOTBKT pit tiet /* root bucket 
ILL 1 bitfield fmt sretix anal tag $$; /* apace 
PTR_SZ bitfield mask length 2 /* size of vbn pointers in this bucket 
end BKT(B BITS; 
constant ENDOVHD equals 4 prefix BKT tag $C;/* end of bucket overhead 
constant DATBKTOVH equals 2 prefix BKT tag $C;/* end of bucket overhead for data buckets 
constant DUPBKTOVH equals 4 prefix BKT tag $C;/* additional end of data bucket overhead 
/* when duplicates are allowed (LCB pointer 
constant MAXBKTSIZ equals 63 prefix BKT tag $C;/* maximum bucket size 


— sens sn 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


e*e#eeee eee ee eee eee eenane 
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getute SIRCDEF; 
° index record definition 


/ 
eC this is the definition of RMS-11/RMS-32 index file record formats 


aggregate IRCDEF union prefix IRC$; 
” CONTROL b : 


te unsigned; /* record control byte 
CONTROL_BITSO structure; 
PTRSZ bitfield mask Longeh 2; /* size of pointer 
RECORDCB bitfield mask ength 6; /* record control bits 


end CONTROL_BITSO; 


/* record control bits used only in primary data record and SIDR array element 
/* control bytes 


CONTROL _BITS1 structure; 
FILC_1 bitfield length 2 fill prefix IRCDEF tag $$;/* skip size of pointer field 
DELETED bitfield mask; * record is deleted 
ILL.2 bitfield fill prefix IRCDEF tag $$; 
NOPTRSZ bitfield mask; /* no RRV , 
FILL_3 bitfield Length 2 fill prefix IRCDEF tag $$; /* skip 2 bits 
FIRST_KEY bitfield mask; 
end CONTROL_BITS1; 
/t 
ec record control bits used only in primary data record control bytes 
® 


CONTROL _BITS2 structure; 
FILC_3 bitfield length 3 fill prefix IRCDEF tag $$;/* skip over first 3 bits 
RRV bitfield mask; /* rev record 

end CONTROL_BITS2; 


/* record control bits used only in prologue 2 SIDR record control bytes 
CONTROL_BITS3 structure; 
FILC_5S b 


tfield Length 4 fill prefix IRCDEF tag $$;/* skip 4 bits 
NODUPCNT bitfield mask; /* DUP_CNT field absent 
end CONTROL_BITS3; 


/* record control bits used only in prologue 3 RRV, UDR and SIDR record control 
* pytes oF RU journalled files. (RU_UPDATE is set only in UDR record control 
* bytes 


CONTROL BITS4 structure; P 
FILC_6 bitfield Length 5 fill prefix IRCDEF tag $$;/* skip 5 bits 
RU_DELETE bitfield mask; /* record is RU deleted 
R veers Pays tote mask; /* record is RU updated 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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® 
* record control bits reserved for RMS-11 use only (these may not be re-defined 
. except for prologue 3 records) 


/ 
/ 
/ 
/ 
/* Bit number 5 
/* Bit number 6 
/* 
/ 
/ 


* 
4 index bucket record 
CONTROL _FIELDS4 structure; 
LC_7 byte fill prefix IRCDEF tag $$; 
BUCKETPTR character Length 0 tag T; /* bucket pointer (not referenced in the code, 
* just present for consistency) 

constant IDXPTRBAS equals 2 prefix IRC tag $C:/* used to determine size of pointer in index 

constant IDXOVHDSZ equals 1 prefix IRC tag $C;/* includes record control byte 
fu data bucket record 


end CONTROL_FIELDS4; 
end IRCDEF; 


aggregate IRCDEF1 structure pretie IRC$; 
FILL_8 byte fil! prefix IRCDEF tag $$; 
ID ore unsigned; /* record id 
RRV_ID byte unsigned; /* crv's id -- always in the same place 
/* 
-- prologue 3 data bucket record 


end IRCDEF1; 


aggregate IRCDEF2 structure prefix IRCS; 
FILL_9 byte fill prefix IRCDEF tag $$; 
ID word unsigned; /* record id 
RRV_ID word unsigned; /* rrv's id -- always in the same place 


/* constants 
* 


constant DATSZFLD equals § prefix IRC tag $C; /* size of size field in variable length records 
constant DATPTRBAS equals prefix IRC tag $C; /* used to determine size of RRV in data buckets 
constant DCNTSZFLD equals 4 prefix IRC tag $C; /* size of duplicate count field in Plg 2 SIDRs 
constant DATOVHDSZ equals § prefix IRC tag $C; /* includes the record control byte, and the id 
constant FIXOVHDSZ equals prefix IRC tag $C; /* the record overhead for fixed record 

constant VAROVHDSZ equals 3 ine 


Po constant RRVOVHDSZ equals 
a prologue 3 constants 


constant DATPTRBSS equals 4 prefix IRC tag $C; /* used to determine size of RRV in data buckets 
constant DATOVHSZ5 equals 3 prefix IRC tag $C; /* record control byte, and 

constant FIXOVHSZ3 equals prefix IRC tag $C; /* record overhead for fixed length records 
constant VAROVHSZ3 equals 11 prefix IRC tag $C; /* record overhead for variable length records 
constant RRVOVHSZ5 equals 9 prefix IRC tag $C; /* size of RRV 


tag $C; /* record overhead for variable records 


prefix 
tag $C; /* size of RRV 


prefix 


AAA AAAAAAAAAAAAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


RMSFILSTR.SDL;1 


N 4 
16-SEP-1984 16:44:14.21 Page 11 


constant SDROVHSZ3 equals 2 prefix IRC tag $C; /* record overhead for SIDRs 


constant KEYCMPOVH equals 
constant DATCMPOVH equals 
end IRCDEF2; 


end_module SIRCDEF; 


§ 


prefix IRC tag HE /* key compression overhead 
prefix IRC tag $C; /* data compression overhead 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
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module SKEYDEF; 


aggregate KEYDEF structure prefi 
Longword neds 
NOFF word unsi anne Be 


ee OVERLAY uni = 
FCAGS itt unsigned; 
ota B Hh structure; 


x KEY$; 


/* 
/* definitions for the key descriptors in the prologue 
* 
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o. these definitions are associated w/ the plg and area definitions 


/* vbn for next a descriptor 
/* offset to next key descriptor 
/* index area number 

/* level 1 area number 

/* data area number 

/* root level 

/* index bucket size 

/* data bucket size 

/* root bucket pointer 


/* flag bits 


bitfield mask; /* Gupt Scots key values allowed 
eerie Bit tietd mask; /* k ey value may change on $update operation 
NULKEYS bitfield mask; /* null key ener eerer enabled 
IDX_COMPR bitfield mask; /* index is compresse 
INITIDX bitfield mask; /* index must be initialized 
A 1 bitfield fill prefix KEYDEF tag $$; /* s spare 
: KEY_COMPR bitfield mask; /* (PLG3) key is compressed in data record 
end FLAGS_BITSO; 
FLAGS _BITS1 structure; 
FILL_¢ bitfield fill prefix k KEYDEF tag $ /* space over dupkeys 
| FILL_3 bitfield tengt 2 fil bePber tag ere ber tag spar 
1 FILL_4 bitfield fill prefix KEYD /* space over idx compr 
FILL_5 bitfield fill prefix KEYDEF tas $3; /* space over initidx 
FILL_6 bitfield fill prefix KEYDEF tag $$; /* epere 
FILL? bitfield fill prefix KEYDEF tag $$: /* 5s Spec over key compr 
F REC COMER bitfield mask; /* (PLG3) Data record is compressed 
en 
constant RAK _D pat equals 10 prefix KEY ta Rad (rL65) Maximum size of a non-compressed data 
constant MAX_PRIMARY equals 6 prefix KEY tag $C: 178 (PLB) Maximum size of a non-compressed 
constant MAX_INDEX equals 6 prefix KEY tag $C; At iat) "hesteun size of a non-compressed 
/* index and SIDR key 
ond FLAGS OVERLAY; 
DATATYPE byte unsigned; /* data type for key 
constant §$ equals 0 prefix KEY tag $C; /* string data type 
constant SGNUORD equals 1 prefix KEY tag $C; /* signed binary word 
constant UNSGNWORD equals ¢ prefix KEY tag $C; /* unsigned £ binary word 
constant SGNLONG equals prefix KEY tag $C; /* signed binary long word 
constant UNSGNLONG equals 4 prefix KEY tag $C; /* unsigned binary long word 
constant PACKED oeuere 5 prefix KEY tag $C; /* packed decimal 
constant SGNQUAD $ § prefix KEY tag $C; /* signed binary quadword 
constant UNSGNQUAD oouste prefix KEY tag $C; /* unsigned binary quadword 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
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yte unsigned; 


F 
MINRECSZ word unsigned; 
IDXFILL word unsigned; 


DA 


TYPE1 byte unsigned; 


TYPE 


end KEYDEF; 
end_module $KEYDEF; 


TFILL word unsigned; 
POSITION OVERLAY union; 


POSITION word unsigned: 
POSITIONO word unsigned; 
end POSITION_OVERLAY; 
POSITION] word unsigned; 
poet one word unsigned; 
POSITIONS word unsigned; 
POSITIONS word unsigned; 
POSITIONS word unsigned; 
POSITION6 word unsigned; 
POSITION? word unsigned; 
SIZE_OVERLAY union; 
SIZE byte unsigned; 
SIZEO by unsigned; 
end SIZE_OVERLAY; 
SIZE1 byte unsigned; 
Size¢ byte unsigned; 
SIZES byte unsigned; 
SIZE4 byte unsigned; 
SIZE5 byte unsigned; 
SIZE6 byte unsigned; 
SIZE7 byte unsigned; 
KEYNAM character length 32; 
LDVBN Longword unsigned; 
TYPE_OVERLAY union; 


x KE 
x KE 
6 p 


Y$ tag K; 
Y$ tag C; 
refix KEY tag $C; 


maximum data type value allowed 
number of segments in key 
null" character 
total key size 
key of reference 
minimum record Length 
index fill quantity 
data fill quantity 


key seg position 
another name for position 0 


position 1 
position ¢ 
position 

position 4 


key segment size | 
another name for size 


size 1 


key name 
first data bucket 


key segment datatype (plg 3) 
enather mame for erst dlcatyes (plg 3) 


(plg 3) 

(plg 3) 

(plg 3) 

(plg 3} 

(plg 3) 

Hees 

Length of key descriptor in the prologue (plg 3} 
length of key descriptor in the prologue (plg 3) 
these are spare words in key block (plg 3) 
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module SAREADEF; 
/* 


/* 
. definitions for the area descriptor in the prologue 
® 
/* 


aggregate AREADEF structure prefix AREAS; 

FILL_1 byte fill prefix AREADEF tag $$; 

FLAGS by e unsigned; 
AREAID he uns gned: 
ARBKTSZ byte unsigned; 
VOLUME word ye 'ger 
ALN byte unsigned; 


constant CYL equals 1 prefix AREA tag $C; 
constant LBN equals ¢ prefix AREA tag $C; 
constant VBN equals prefix AREA tag $C; 


constant RFI equals 4 piefix AREA tag $C; 


FILL_3 bitfield fill prefix AREADEF tag $$; 
CTG Bitfield mask; 
end AOP_BITS; 
end AOP_OVERLAY; 
AVAIL lLongword unsigned; 
CVBN longword unsigned; 
CNBLK longword unsigned; 
USED Longword unsigned; 
NXTVBN Longword yrs tered) 
NXT Longword unsigned; 
NXBLK Longword unsigned; 
DEQ word uns igned; 
FILL_4 byte dimension 2 fill orefix AREADEF tag $$; 
LOC Tonguord unsigned; 
RFI word unsigned dimension 3; 
TOTAL_ALLOC Longword unsi 


/* 


/* 
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spare 
not currently used 

area id 

bucket size for area 

relative volume number 

extend allocation alignment 

cylinded alignment 

logical block alignment 

virtual block alignment : . 
allocate close to related file by fid 


alignment options 
absolute alignment or nothing 


locate on cylinder 
g $$; 


* contiguous best try 


contiguous 


available (returned) buckets 

start vbn for current extent 
number of blocks in current extent 
number of blocks used 

next vbn to use 

start vbn for next extent 

number of blocks in next extent 
default extend quantity 


spare 
start lbn on volume 
related file i 


e id 
/* total block allocation 


ned; 
ILL_5 byte dimension 8 fit prefix AREADEF tag $$;/* spare 
/* checksum 


F 

CHECR word unsigned; 

constant BLN equals . prefix AREA$ tag K; 

constant BLN equals . prefix AREAS tag C; 
end AREADEF ; 


end_module SAREADEF ; 


/* 
/* 


length of area descriptor in the prologue 
length of area descriptor in the prologue 


RMSFILSTR.SDL;1 


16-SEP-1984 16:46:18.24 Page 15 


module SRIRDEF; 


definitions for the journaling records in RMS journals 
for performance reasons, the BKT and BLK forms 
should be an integral number of quadwords. 


OVERLAY union; /* control flags 


LAGS re; 
FILL_C1 bitfield length 16 fill prefix RJRDEF tag $$; 
end FLAGS BITS; 

end FLAGS_OVERLAY; 


VERSION byte unsigned; /* RMS journal version # 
constant VER1 equals 1 prefix RJR tag $C: /* journal version 
constant VER2 equals § prefix RJR tag $C; /* journal version 2 

a ad engin Pane by prefix RJR tag $C; er tere ‘ 

e unsigned; ournal entr © 
constant NOENT ° equals 0 prefix RJR tag $C; /* null See ag 
constant MAPPING equals 1 prefix RJR tag $C; /* mapping entry 
constant FILENAME equals 1 prefix RJR tag $C; /* mapping entry synonym 
constant RECORD equals ¢ prefix RJR tag $C; /* record entry 
constant BLOCK equals 5 prefix RJR tag $C; /* block 10 entry (at, etc...) 
constant BUCKET equals 4 prefix RJR tag $C; /* ISAM bucket 
constant EXTEND equals 5 prefix RJR tag $C; /* extend (AT, Al) 
constant AT_RECORD equals 6 prefix RJR tag $C; /* audit trail record 
constant MAXTYP equals 6 prefix RJR tag $C; /* entry-type Limit 

ORG byte unsigned; /* file organization 
constant SEQ equals 0 prefix RJR tag $C; /* sequential file org 
constant REL equals 1 prefix RJR tag $C; /* relative file org 
constant IDX equals ¢ prefix RJR tag $C; /* indexed file org 
constant HSH equals prefix RJR tag $C; /* hashed file org 

en Teten ee equals 3 prefix RJR tag $C; . org bt - 

e unsigned; operation i 
constant NOP equals 0 prefix RJR tag $; iE null operation 
constant BUCKET equals 1 prefix RJR tag $; /* bucket-level 1/0 
constant CLOSE equals ¢ prefix RJR tag $; /* close 
constant CONNECT equals prefix RJR tag $; /* connect 
constant CREATE equals 4 prefix RJR tag $; /* create 
constant DELETE equals 5 prefix RJR tag $; /* delete 
constant DISCONNECT equals § prefix RJR tag $; /* disconnect 
constant eRiER” = Squats @ pretix Run tag gif enter’ 
constant ERASE equals é prefix RJR tag $; /* erase 
constant EXTEND equals 10 prefix RJR tag $; /* extend 
constant FIND equals 11 prefix RJR tag $; /* find 
constant FLUSH equals 12 prefix RJR tag $; /* flush 
constant FREE equals 15 prefix RJR tag $; /* free 
constant GET equals 14 prefix RJR tag $; /* get 
constant MODIFY equals 15 prefix RJR tag $; /* modify 
constant NXTVOL equals 16 prefix RJR tag $; /* next volume 
constant OPEN equals 17 prefix RJR tag $; /* open 
constant PARSE equals 18 prefix RJR tag $; /* parse 
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| 
RMSFILSTR.SDL;1 | 
| 
constant PUT equals 19 prefix RJR tag $; /* put 
constant READ equals 9 prefix RJR tag $; /* block 1/0 read 
constant RELEASE equals prefix RJR tag $; /* release 
constant REMOVE equals § prefix RJR tag $; /* remove 
constant RENAM equals prefix RJR tag $; /* rename 
constant REWIND equals 24 prefix RJR tag $; /* rewind 
constant SEARCH equals 25 prefix RJR tag $; /* search 
constant SPACE equals § prefix RJR tag $; /* block 1/0 space 
constant TRUNCATE equals prefix RJR tag $; /* truncate 
constant UPDATE equals 8 prefix RJR tag $; /* update 
constant WA equals prefix RJR tag $; /* wait : 
constant WRITE equals 30 prefix RJR tag $; /* block 1/0 write 
constant TPT equals 31 prefix RJR tag $; /* truncate on PUT 
constant MAXOPER equals 31 prefix RJR tag $; /* oper Limit 
JNL_TYPE byte unsigned; * Journaling type 
constant NOJNL equals 0 prefix RJR tag $C; /* null jnl type 
constant RMS_AI equals 1 prefix RJR tag $C; /* after-image journal 
constant RMS_BI equals ; prefix RJR tag $C; /* before-image journal 
constant RMS_RU equals 3 prefix RJR tag $C; /* recovery unit 
constant MAXJNL equals 3 prefix RJR tag $C; /* jnl type Limit 
FILL C2 byte dimension | fill prefix RJRDEF tag $$; /* spare 
JNLIB_OVERLAY union fill; /* RMS journal ID 
JALID character Length 28; /* 
JNLID_FIELDS structure fill; 
VOLNAM character length 12; /* volume name 
FID character Length 6; /* file id 
FILL_C3 word fill prefix RJRDEF tag $$; 
ID_DATE quadword unsigned; /* time 
end JNCID_FLAGS; 
end JNLID-OVERLAY; 
AT_STS longword unsigned; /* status of operation 
AT_STV longword unsigned; /* secondary status — 
AT_CTX longword uns lpned: /* user FAB/RAB CTX field 
FICL_C4 Longword fill prefix RJRDEF tag $$; 
FILL_CS Longword fill prefix RJRDEF tag $$; 
constant HDRLEN equals . prefix RJR$ tag K; /* common header len 
constant HDRLEN equals . prefix RJR$ tag C; /* common header Len 


ENTRY_OVERLAY union; 


/* The FILENAME entry is used to describe filename information required to: 
® 


/* 1, Identify a stream of journal entries with a particular file. 
/t Used in particular for Al volume recovery or roll back RUs on remount. 


/* 2. Record the information required to re-create a file for Al journaling. 
/* 3. Record all the required audit-trail information for a $CREATE. 


FILENAME _ENTRY structure; 
FILL FI sengverd fill prefix RJRDEF tag $$; 
ATR_FLAGS OVERLAY union; 
ATR_FCAGS Longuord unsigned; 
ATR_FLAGS_BITS structure; 
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end RECORD e 
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ATR_UCHAR bis tteld: /* 
ATR_PROT » tfield; /* 
ATR_UIC bitfield; /* 
ATR_REC bitfield; /* 
ark of Atte bitfield; /* 
end A LAGS BITS; 
end ATR LAGS” OVERLAY 
UIC longword Gns neat /* 
PROT Longword uns ned; /* p 
ALLOC Longword uns gned; /* 
UCKAR longword unsigned; /* 
EXPIRE oneeere uns gned; /* 
FNS byte uns gree /* 
FILL byte ‘mens ion 1 fill prefix RJRDEF ta 
FAC byte unsigne : /* 
SHR byte unsigned; /t 
DID were unsigned dimension /* 
FILL_F3 word fill prefix RoRDEF tag $$; 
C_FIB character Length 64; y 
constant C_FIBLEN equals 64 prefix RJR$ tag K; 
constant C_FIBLEN opens 64 pretse RJR$ tag C: 
REC_ATTR character length /* 
constant RECATRLEN equals * prefix RJR$ tag K; 
constant RECATRLEN paves prefix RJR$ tag C; 
FILENAME character length 256; 4s 
constant FILNAMLEN equals . prefix RJR$ tag K 
constant F ILNAMLEN equals . prefix RJR$ tag C 
end FILENAME_ENTRY; 

RECORD_ENTRY structure; /* 
FICL_REC1 longword fill prefix RJRDEF tag $$; 
CHESOM Longword unsigned; 

RFA_OVERLAY union; 

“RFA word uns igned dimension 3; /* 

RFA ~pLELOS structure; 

vor uns unsigned; /* 
RFA4 word unsigned; 

end RFA. FIEL 

RRN Longuord get /* 
end RFA_OVE 
RSIZE word unsigned; /* 
RIMAGE character Length /* 
penatent RECLEN equals . "Leatte RJR$ tag Ki: /* 

nstant RECLEN equals . prefix RJR$ tag C; /* 


NTRY; 


AR attribute present 

T attribute present 
attribute present 

ORD attributes present 
IRATION present 


comer ut 


ot ma 
Pnitiat Ti tesaktes (audit) 
user characteristics (create) 
expiration date (create) 
size of file name 


tits access (audit) 


sharing allowed (audit) 
directory ID (create, volume recovery) 


FIB (create) 
record attributes (create) 


full filename 


record entry 

* checksum of old record 
RFA of record 
alternate RFA def 


relative record number 


record size 
record date 
record entry Len 
record entry Len 


/t 
. The block entry is common to both AT and block 10 journaling. 


eae) ra 


constant 


structure; 


BLK1 Longword fill prefix RJRDEF tag $$ 
BL OCR” VBN Longword unsigned; 
BLOCK-SIZE longword uns gned: /* 
BLOCK’ character lengt 


/t 
BLKLEN conits y "pret ix RJR$ tag K; /* 


* block entry 


7* vbn of block 


Bronater ,o tae (AT) 
block 
block hg entry len 


RMS 
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constant BLKLEN equals . prefix RJR$ tag C; /* 
end BLOCK_ENTRY; 


EXTEND_ENTRY structure; /* 
FICL_EXT1 Longword fill pre ix RJRDEF tag $$ 

Fic “EXT2 character Length 32; os 

® 


EXT -FLAGS pyr a union; 
“EXT_FCAG TT See unsigned; 
EXT_ “FLA Gs Blt steuc ture: 
“ExT Y tfield; /* 
end EXT + 
end EXT FLAGS. tOVERL 
ia FILL_EXTS Longword rt prefix RJRDEF tag $$; 


- The extend entry is common to both AT and Al journaling. 


H 
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block i/o entry Len 


extend entry 


no coneer FIB 
currently unused 


ALL XAB fields present 


/* Fields EXT_AOP (unused) through EXT_RFI are in same relative locations as 


/* the same fields in allocation XAB. 


/t 

EXT_AOP byte unsigned; /* align options 

“ALN byte unsigned; /* alignment boundary 
EXT_VOL word unsigned; /* relative volume number 
EXT_LOC lLongword unsigned; /* location 
EXT_ALQ conquers ene lords /* allocation quantity 
EXT_DEQ word unsigned; /* default extension 
EXT_BKZ byte une | pneds /* bucket size 
EXT_AID byte unsigned /* area 
EXT_RFI word unsigned: sroomexen 3; /* related file IFI 
EXT-ENDALL character Length /* end of all info 


constant EXTLEN equals . suite RJR$ tag K i /t 
constant EXTLEN equals . prefix RJR$ tag C; /* 
end EXTEND ENTRY; 


BUCKET_ENTRY structure; 
FICL_BKT1 Longword ful pretix RJRDEF tag $8; 
BET -¥eN Longword ynst agen : 


BKT-SIZE word us ie 
JBKT_SIZE word sede qned: a 

® 
BUCKET shores tor Length /* 
constant BKTLEN equals . othe RJR$ tag K; /* 


constant BKTLEN equals . prefix RJR$ tag C: /* 
end BUCKET ENTRY; 


AT_RECORD structure; 
FILL_AT1 longword fill prefix RJRDEF tag $$; he 


AT ROP longword unsigned; 
AT_KRF byte unsigned; /* 
AT_KSZ pyte unsigned: /t 


/t 
FICL_AT byte efittp prefix RJRDEF tag $$; 
AT_RFA_OVERLAY union; 


extend entry Len 
extend entry Len 


* BUCKET entry 


* bucket vbn 

bucket size 

actual size of 
ournaled bucket data 
ucket data 

bucket entry Len 
bucket entry len 


record options 

key of reference 
key size 

record access mode 
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AT_RFA word unsigned dimension 3; /* 
AT_RFA_FIE ". structure; 
Bt ord. uns' uns i gned; /* 
AT_RFA ver uns j gned; 
end AT M phe FIE 
AT_RRN™ Longuord: ar /* 
pnd AT_RFA_OVE 
FILL_ATS word fill prefix RJRDEF tag $$; 
AT_KEY character Length 0; /* 
constant AT_RECLEN equals . pretix RJR$ tag K; 
conetent oft -RECLEN equals . prefix RJR$ tag C; 
end AT_RECOR 
end ENTRY_OVERLAY; 
constant BLN equals - prefix RJRS tag K /* 
constant BLN equals . prefix RJR$ tag C: /* 
end RJRDEF; 


end_module SRJRDEF; 
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RFA of record 
alternate RFA def 


relative record number 


key if used 


Length of RJR descriptor in the prologue 
length of RJR descriptor in the prologue 
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